0 Y=16:Z=0:A=4096:POKE53281,9:POKE53280,0:POKE204,1:PRINTCHR$(14):POKE657,128
1 INPUT"[147]1.[197][201][206][199][197][194][197][206] 2.[211][208][197][201][195][200][197][210][206] 3.[215][197][201][212][197][210][211][195][200][210][197][201][194][197][206]";X:PRINT"[144][147]";:IFX=2THENGOTO8
2 IFX=3 THEN GOSUB7:GOTO3:DATA169,139,160,10,133,95,132,96
3 GETA$:IFA$=""THENGOTO3:DATA169,138,160, 12,133, 90,132, 91,169,  2
4 POKEA,ASC(A$):PRINTA$;:A=A+1:Z=Z+1:IFZ=256THENZ=0:Y=Y+1:DATA160, 10,133, 88
5 IFA$<>"[133]"THENGOTO3:DATA132, 89,32,191,163,169,54,141,1,8,169,8,141,2,8,32,237
6 A=A-1:GOTO1:DATA245,76,226,252
7 PRINT"[147]";:FORT=4097TOA:PRINTCHR$(PEEK(T));:NEXTT:RETURN
8 A1=A-4095:FORT=4050TO4095:IFA1>255THENPOKET,255:A1=A1-255:NEXTT
9 POKET,A1:A1=0:NEXTT:INPUT"[147]FILENAME:";A$:SYS57812""+A$,8:POKE174,Z:POKE175,Y
10 POKE193,1:POKE194,8:POKE95,202:POKE96,09:POKE90,112:POKE91,11:POKE88,169
11 POKE89,9:FORT=3304TO3346:READX:POKET,X:NEXTT:SYS3304
12 FORT=4050TO4095:A=A+PEEK(T):NEXT:A=A+4096:PRINTCHR$(14):POKE657,128
13 POKE649,0:PRINT"[147][201]DEE UND [208]ROGRAMM VON  [196]AVID VAN [194]EBBER ";:L=54272
14 FORK=0TO24:READX:POKEL+K,X:NEXT:DATA9,2,0,3,0,0,240,12,2,0,4,0,0,192,16,2,0
15 DATA6,0,0,64,0,30,243,31,120,169,16,141,20,3,169,15,141,21,3,88,96,255,0,0
16 DATA162,240,169,0,141,32,208,232,208,253,169,0,141,32,208,76,49,234,49
17 FORT=3840TO3874:READX:POKET,X:NEXTT:SYS3840:POKE53281,9:FORR=1TO2000:NEXTR
18 PRINTCHR$(14);"[144][147][146]";:POKEL+4,65:POKEL+11,65:POKEL+18,65:FORT=4096TOA-1
19 A$=CHR$(PEEK(T)):PRINTA$;:POKE3859,ASC(A$):FORR=1TO20:NEXTR:NEXTT:SYS64738